﻿Public Class postChat
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnPostMsg_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPostMsg.Click
        Dim o As New ChatClient.ChatMessage
        o.UserTo = New ChatClient.ChatUser
        o.UserFrom = New ChatClient.ChatUser
        o.Message = txtMessage.Text
        o.UserTo.ID = txtUserToID.Text
        o.UserTo.Name = txtUserToName.Text

        o.UserFrom.ID = txtUserFromID.Text
        o.UserFrom.Name = txtUserFromName.Text

        ChatClient.ChatManager.PostChat(o)

    End Sub
End Class